'   = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 
 
 '       P K - P O S   v 1   -   2 8 / 1 1 / 2 0 2 4 
 
 '   = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 
 
 
 
 N u m e r o C a s s e t t e   =   1 4 
 
 
 
 S t r i n g   F o l d e r N a m e   =   " C : \ T e m p \ "                     '   < - - -   D e v e   t e r m i n a r e   c o n   " \ " 
 
 S t r i n g   F i l e N a m e       =   " D a t i C a s s e t t e " 
 
 S t r i n g   E x t e n s i o n     =   " . c s v " 
 
 S t r i n g   F i l e P a t h A n d N a m e 
 
 
 
 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   B U T T O N S 
 
 F o r   v 1   =   1   T o   1 4 
 
 	 B u t t o n   v 1   L a b e l   " P o s t "   +   v 1 
 
 	 B u t t o n   v 1   C o l o r   H o n e y d e w 
 
 N e x t 
 
 B u t t o n   1 7   L a b e l   D a t a 
 
 B u t t o n   1 7   C o l o r   Y e l l o w 9 
 
 B u t t o n   1 9   L a b e l   A p r i C a r t e l l a 
 
 B u t t o n   1 9   C o l o r   Y e l l o w 9 
 
 B u t t o n   2 1   L a b e l   A p r i F i l e 
 
 B u t t o n   2 1   C o l o r   Y e l l o w 9 
 
 
 
 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   I N I T 
 
 O p t i o n   S p e e d   9 
 
 
 
 s 1   =   N o w 
 
 F i l e P a t h A n d N a m e   =   F o l d e r N a m e   +   F i l e N a m e   +   " _ "   +   L e f t ( s 1 ,   1 0 )   +   E x t e n s i o n 
 
 F i l e P a t h A n d N a m e   =   R e p l a c e ( F i l e P a t h A n d N a m e ,   " / " ,   " _ " ) 
 
 
 
 L o a d   T h e r e m i n o _ H a l . e x e 
 
 G o s u b   M a i n L o o p 
 
 S t o p 
 
 
 
 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   C L O S E   A P P L I C A T I O N 
 
 L a b e l   E v e n t S t o p 
 
 	 L o a d   C l o s e A p p s   T h e r e m i n o _ H a l . e x e 
 
 E n d 
 
 
 
 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   M A I N   L O O P 
 
 L a b e l   M a i n L o o p 
 
 	 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   T e s t   S L O T S 
 
 	 N u m e r i c   N u m e r o C a s s e t t e 
 
 	 N u m e r i c   C a s s e t t a 
 
 	 F o r   C a s s e t t a   =   1   T o   N u m e r o C a s s e t t e 
 
 	 	 I f   S l o t ( C a s s e t t a )   < >   A r r a y 1 ( C a s s e t t a ) 
 
 	 	 	 A r r a y 1 ( C a s s e t t a )   =   S l o t ( C a s s e t t a ) 
 
 	 	 	 I f   S l o t ( C a s s e t t a )   =   0 
 
 	 	 	 	 A d d C a s s e t t a 
 
 	 	 	 E n d I f 
 
 	 	 E n d I f 
 
 	 N e x t 
 
 	 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   P r i n t   T I M E 
 
 	 B u t t o n   D a t a   T e x t     "     "   +   N o w 
 
 G o t o   M a i n L o o p 
 
 
 
 N u m e r i c   S t a r t T i m e 
 
 
 
 L a b e l   A d d C a s s e t t a 
 
 	 A r r a y 2 ( C a s s e t t a )   =   A r r a y 2 ( C a s s e t t a )   +   1 
 
 	 B u t t o n   C a s s e t t a   T e x t   " P o s t   1     =   "   +   A r r a y 2 ( C a s s e t t a ) 
 
 	 B e e p   7 0 0   1 0 
 
 	 S a v e F i l e 
 
 R e t u r n 
 
 
 
 L a b e l   S a v e F i l e 
 
 	 s 1   =   N o w   +   " ; " 
 
 	 F o r   v 1   =   1   T o   N u m e r o C a s s e t t e 
 
 	 	 s 1   =   s 1   +   A r r a y 2 ( v 1 )   +   " ; " 
 
 	 N e x t 
 
 	 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
 	 C a l c E l a p s e d S e c o n d s 
 
 	 s 1   =   s 1   +   " S e c o n d s   "   +   E l a p s e d S e c o n d s 
 
 	 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
 	 ' s 1   =   L e f t ( s 1 ,   L e n ( s 1 )   -   1 )   
 
 	 S a v e   S t r i n g T o F i l e   s 1   F i l e P a t h A n d N a m e 
 
 R e t u r n 
 
 
 
 S t r i n g   E l a p s e d S e c o n d s 
 
 L a b e l   C a l c E l a p s e d S e c o n d s 
 
 	 E l a p s e d S e c o n d s   =   F o r m a t ( E l a p s e d T i m e   -   S t a r t T i m e ,   " 0 " ) 
 
 	 S t a r t T i m e   =   E l a p s e d T i m e 
 
 R e t u r n 
 
 
 
 L a b e l   A p r i F i l e 
 
 	 L o a d   F i l e P a t h A n d N a m e 
 
 R e t u r n 
 
 
 
 L a b e l   A p r i C a r t e l l a 
 
 	 L o a d   F o l d e r N a m e 
 
 R e t u r n 
 
 
 
 
 
 ' B O O K M A R K S   
 
 
 
 ' E D I T E D L I N E S   2 0   8   1   5   3 0   5   3 5   5   4 5   5   4 0   5   5 3   5   1 1   8   6   8   2 5   8   5 8   8   6 3   8   6 8   1 0   7 5   1 0   8 0   1 0   
 
 
 
 ' W A T C H   
 
 ' W A T C H   
 
 ' W A T C H   
 
 ' W A T C H   A r r a y 1 
 
 